{
  Ivanov Nikita
  20/11/2012
  Stupid and Smart Calculator
}
program St_and_Sm_Calculator;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  Stc= class
    function Sum(a, b:integer):integer;
    function Diff(a,b:integer):integer;
  end;
  Smc= class(Stc)
    function Mult(a,b:integer):integer;
    function Rati(a,b:integer):real;
  end;


{ Stc }

function Stc.Diff(a, b:integer): integer;
begin
  Diff:= a-b;
end;

function Stc.Sum(a, b:integer): integer;
begin
  Sum:= a+b;
end;

{ Smc }

function Smc.Mult(a, b:integer): integer;
begin
  Mult:= a*b;
end;

function Smc.Rati(a, b:integer): real;
begin
  Rati:= a/b;
end;

var
  st:Stc;
  sm:Smc;
  a, b:integer;
begin
  st:= Stc.Create;
  sm:= Smc.Create;
  readln(a,b);

  // Now it's time to do something with this code

  readln
end.
 